home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / UCRASM25.ARJ / ARGV.ASM < prev    next >
Assembly Source File  |  1991-10-24  |  3KB  |  165 lines
  1. ;
  2.         extrn    PSP:word
  3. ;
  4. StdGrp        group    stdlib,stddata
  5. stddata        segment    para public 'sldata'
  6. stddata        ends
  7. ;
  8. stdlib        segment    para public 'slcode'
  9.         assume    cs:stdgrp
  10. ;
  11.         extrn    sl_malloc:far
  12. ;
  13. ; Argv-        Returns a string containing a specified command line
  14. ;        parameter.
  15. ;
  16. ; inputs:
  17. ;
  18. ;    AX-    Contains the number of the parameter you wish to obtain.
  19. ;    PSP-    Global variable which must point at the PSP.
  20. ; 
  21. ;
  22. ; Outputs:
  23. ;
  24. ;    ES:DI-    Points at the newly allocated string on the heap which contains
  25. ;        the command line parameter.
  26. ;
  27. ;
  28. cr        equ    13
  29. ;
  30. ;
  31.         public    sl_Argv
  32. ;
  33. sl_Argv        proc    far
  34.         push    ds
  35.         push    si
  36.         push    ax
  37.         push    cx
  38. ;
  39.         mov    si, seg    PSP
  40.         mov    ds, si
  41.         mov    ds, ds:PSP
  42. ;
  43. ; Skip to the first parameter
  44. ;
  45.         mov    si, 80h            ;Pointer to start of cmd line-1
  46. CntLoop:    inc    si            ;Move on to next char.
  47.         cmp    byte ptr [si], ' '    ;Skip all spaces here.
  48.         je    CntLoop
  49. ;
  50.         mov    cl, [si]
  51.         cmp    cl, cr            ;See if carriage return
  52.         je    NoSuchParm
  53. ;
  54. ; We just encountered an argument, is it the one we want?
  55. ;
  56.         dec    ax
  57.         jz    GrabThisOne
  58. ;
  59. ; If this isn't the argument we want, skip it.
  60. ;
  61.         cmp    cl, '"'            ;See if it's a string.
  62.         je    GotString
  63.         cmp    cl, "'"
  64.         je    GotString
  65. ;
  66. ; If not a string, skip to next space or CR.
  67. ;
  68. SkipWord:    inc    si
  69.         cmp    byte ptr [si], ' '
  70.         je    CntLoop
  71.         cmp    byte ptr [si], cr
  72.         je    NoSuchParm
  73.         jmp    skipWord
  74. ;
  75. ; If we've got a string, skip to the delimiter or to the end of the line.
  76. ;
  77. GotString:    inc    si
  78.         cmp    cl, [si]        ;See if the delimiter
  79.         je    CntLoop
  80.         cmp    byte ptr [si], cr    ;See if EOLN
  81.         jne    GotString
  82.         jmp    NoSuchParm
  83. ;
  84. ; If the argument counter just went to zero, return the specified string.
  85. ;
  86. GrabThisOne:    cmp    cl, "'"            ;Special case for strings
  87.         je    GetAString
  88.         cmp    cl, '"'
  89.         je    GetAString
  90. ;
  91. ; This is not a parameter surrounded by quotes or apostrophes.  Deal with that
  92. ; here.
  93. ;
  94. ; First, compute the length of this guy-
  95. ;
  96.         push    ds
  97.         push    si
  98.         mov    cx, 0
  99. CntChars:    inc    cx
  100.         inc    si
  101.         cmp    byte ptr [si], ' '
  102.         je    EndOfParm
  103.         cmp    byte ptr [si], cr
  104.         jne    CntChars
  105. ;
  106. EndOfParm:    pop    si
  107.         pop    ds
  108. ;
  109. ; Okay, allocate storage for the new string
  110. ;
  111. CopyString:    inc    cx            ;Don't forget zero byte!
  112.         push    cx
  113.         call    sl_malloc
  114.         pop    cx
  115.         jc    ArgvDone        ;Return if error.
  116.         push    es
  117.         push    di
  118.     rep    movsb                ;Copy the string
  119.         mov    byte ptr es:[di-1], 0    ;Put in zero terminating byte.
  120.         pop    di
  121.         pop    es
  122.         clc                ;Return w/no error.
  123.         jmp    ArgvDone
  124. ;
  125. ;
  126. ; If the parameter is a string surrounded by " or ' then process that down
  127. ; here
  128. ;
  129. GetAString:    mov    al, cl            ;Save delimeter.
  130.         push    ds
  131.         push    si
  132.         mov    cx, -1            ;Don't count quote char
  133. CntChars2:    inc    cx
  134.         inc    si
  135.         cmp    al, [si]
  136.         je    EndOfStr
  137.         cmp    byte ptr [si], cr
  138.         jne    CntChars2
  139. ;
  140. EndOfStr:    pop    si
  141.         pop    ds
  142.         inc    si            ;Skip delimeter
  143.         jmp    CopyString
  144. ;
  145. ; If the user selected a phantom parameter, return a pointer to an
  146. ; empty string:
  147. ;
  148. NoSuchParm:    mov    di, seg StdGrp:EmptyParm
  149.         mov    es, di
  150.         mov    di, offset StdGrp:EmptyParm
  151. ;
  152. ; Come down here when we're done:
  153. ;
  154. ArgvDone:    pop    cx
  155.         pop    ax
  156.         pop    si
  157.         pop    ds
  158.         ret
  159. sl_Argv        endp
  160. ;
  161. EmptyParm    db    0,0,0
  162. ;
  163. stdlib        ends
  164.         end
  165.